+ZT(MacApp Dudes & Mr T. (from Peter Young): *DWe very much appreciate the totally cool SynchScroller Unit. I have *Bcreated a C++ interface for it and am using the Unit successfully. *Anyone *Cwho would like the C++ interface can link me and I'll link it back. *However, *Dthere is a problem with some of the math in the two nearly identical *="SynchDependents" local procedures. The originals look like: +$ -PROCEDURE SynchDependents(aSecondaryScroller: ( Í ZTSecondaryScroller); +H BEGIN *WITH aSecondaryScroller DO +$BEGIN *IF fDeltaFactor.h <> 0 THEN +$+fTranslation.h := fTranslation.h + delta.h; (b ΔIF fDeltaFactor.v <> 0 THEN +$+fTranslation.v := fTranslation.v + delta.v; (Ä ΔEND; (è ¢END; (≠ Z8This implementation neglects the protective math done in *ATScroller.DoScroll and it doesn't use the vh[vhs] technique. The *
problem is *Dthat the scroller can scroll outside the scroll limits. By adapting * the code in *DoScroll, as shown below: +$ FOR vhs := v TO h DO +$!IF fDeltaFactor.vh[vhs] <> 0 THEN +$BEGIN *IF delta.vh[vhs] < 0 THEN +$%delta.vh[vhs] := Max(delta.vh[vhs], - (a ZfTranslation.vh[vhs]) +l ELSE IF delta.vh[vhs] > 0 THEN +$#delta.vh[vhs] := Min(delta.vh[vhs], (é ZfMaxTranslation.vh[vhs] - *fTranslation.vh[vhs]); +l.fTranslation.vh[vhs] := fTranslation.vh[vhs] + (ª Zdelta.vh[vhs]; +lEND; ˇ ( Ÿ( ˇ ˇˇˇˇ ( Ÿ
d
+ZTFI think the problem goes away. If you duplicate this change, be sure *to *1change both implementations of "SynchDependents". ˇ Δ î
